home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_bas / basicmsd.zip / CONVERT.BAS < prev    next >
BASIC Source File  |  1996-02-12  |  407b  |  10 lines
  1. 10 input "Enter a number to convert to a 4-byte hex value: " ,IN$ 
  2. 20 I =val (IN$ ):HIBYTE =int (I /256 ):lobyte =I -HIBYTE *256 
  3. 30 HIHI =int (HIBYTE /16 ):HILO =HIBYTE -HIHI *16 
  4. 40 LOHI =int (LOBYTE /16 ):LOLO =LOBYTE -LOHI *16 
  5. 50 V =HIHI :gosub 200 :V =HILO :gosub 200
  6. 60 V =LOHI :gosub 200 :V =LOLO :gosub 200 
  7. 70 end 
  8. 200 if V <10 then print V ;:return 
  9. 210 print chr$ (65 +V -10 );:return 
  10.